home *** CD-ROM | disk | FTP | other *** search
/ The Business Master (4th Edition) / The Business Master - 4th Edition.iso / files / grap_cad / megacad1 / install.bat < prev    next >
Encoding:
DOS Batch File  |  1990-01-10  |  7.8 KB  |  334 lines
  1. ECHO OFF
  2. a:
  3. cd\
  4. IF EXIST megacad.doc GOTO MENUEA
  5. cls
  6. echo  Please insert Shareware Disc 1 and then type INSTALL again!
  7. goto ende
  8. :MENUEA
  9. cls
  10. TYPE MENUE1.DAT
  11. A:GETKEY 35 18 SELECT:
  12. IF ERRORLEVEL == 63 GOTO FEHLER1
  13. IF ERRORLEVEL == 62 GOTO ENDE
  14. IF NOT ERRORLEVEL == 61 goto error2
  15. set a=E:\MEGACAD
  16. set b= E:
  17. set c=EL
  18. goto janein1
  19. :ERROR2
  20. IF NOT ERRORLEVEL == 60 goto error3
  21. set a=D:\MEGACAD
  22. set b= D:
  23. set c=DL
  24. goto janein1
  25. :error3
  26. IF NOT ERRORLEVEL == 59 goto fehler1
  27. set a=C:\MEGACAD
  28. set b= C:
  29. set c=CL
  30. goto janein1
  31. :fehler1
  32. cls
  33. echo  Wrong entry! Please use only one of the function keys F1-F4.
  34. echo .
  35. pause
  36. goto MENUEA
  37. :janein1
  38. CLS
  39. ECHO  All important MegaCAD files will be copied to %A%
  40. ECHO  Is that correct?     Press  J/N
  41. :FRAGE1
  42. a:GETKEY 1 5 INPUT:
  43. IF ERRORLEVEL == 110 GOTO MENUEA
  44. IF ERRORLEVEL == 106 GOTO COP1A
  45. IF ERRORLEVEL == 79 GOTO FEHLER2
  46. IF ERRORLEVEL == 78 GOTO MENUEA
  47. IF ERRORLEVEL == 77 GOTO FEHLER2
  48. IF ERRORLEVEL == 76 GOTO FEHLER2
  49. IF ERRORLEVEL == 75 GOTO FEHLER2
  50. IF ERRORLEVEL == 74 GOTO COP1A
  51. :FEHLER2
  52. cls
  53. echo  Please use only J or N to confirm.
  54. echo .
  55. pause
  56. GOTO janein1
  57. cls
  58. :cop1a
  59. %b%
  60. md %a%
  61. cls
  62. cd %a%
  63. md prt
  64. md mac
  65. cls
  66. cd
  67. echo Please exit program with CTRL-C if the directory stated above
  68. echo is not the directory in which you wish to install MegaCAD
  69. echo Otherwise confirm with any key.
  70. echo .
  71. pause
  72. :MENUE2
  73. cls
  74. TYPE A:MENUE2.DAT
  75. :MENUEe2
  76. a:GETKEY 35 16 SELECT:
  77. IF ERRORLEVEL 62 GOTO FEHLER6
  78. IF ERRORLEVEL == 61 GOTO ENDE
  79. IF ERRORLEVEL == 60 GOTO KA2
  80. IF ERRORLEVEL == 59 GOTO KA1
  81. :FEHLER6
  82. cls
  83. echo Wrong entry! Please use only one of the function keys F1 to F3.
  84. echo .
  85. pause
  86. GOTO MENUE2
  87. :KA1
  88. CLS
  89. ECHO  You have selected the EGA adapter!
  90. ECHO Is that correct?     Press J/N
  91. A:GETKEY 1 5 INPUT:
  92. IF ERRORLEVEL == 110 GOTO MENUE2
  93. IF ERRORLEVEL == 106 GOTO COP7
  94. IF ERRORLEVEL == 79 GOTO FEHLER7
  95. IF ERRORLEVEL == 78 GOTO MENUE2
  96. IF ERRORLEVEL == 77 GOTO FEHLER7
  97. IF ERRORLEVEL == 76 GOTO FEHLER7
  98. IF ERRORLEVEL == 75 GOTO FEHLER7
  99. IF ERRORLEVEL == 74 GOTO COP7
  100. :FEHLER7
  101. cls
  102. echo Please use only J or N to confirm.
  103. echo .
  104. pause
  105. GOTO ka1
  106. :KA2
  107. CLS
  108. ECHO You have selected the Hercules graphics!
  109. ECHO Is that correct?        Press   J/N
  110. A:GETKEY 1 5 INPUT:
  111. IF ERRORLEVEL == 110 GOTO MENUE2
  112. IF ERRORLEVEL == 106 GOTO COP6
  113. IF ERRORLEVEL == 79 GOTO FEHLER8
  114. IF ERRORLEVEL == 78 GOTO MENUE2
  115. IF ERRORLEVEL == 77 GOTO FEHLER8
  116. IF ERRORLEVEL == 76 GOTO FEHLER8
  117. IF ERRORLEVEL == 75 GOTO FEHLER8
  118. IF ERRORLEVEL == 74 GOTO COP6
  119. :FEHLER8
  120. cls
  121. echo Please use only J or N to confirm
  122. echo .
  123. pause
  124. GOTO ka2
  125. :COP6
  126. echo on
  127. CLS
  128. set d=HG
  129. goto cop7a
  130. :cop7
  131. echo on
  132. cls
  133. set c=EG
  134. :cop7a
  135. COPY A:*.PRT PRT
  136. COPY A:*.MAC MAC
  137. echo off
  138. :MENUE12
  139. cls
  140. TYPE A:MENUE3.DAT
  141. :MENUEe5
  142. a:GETKEY 35 16 SELECT:
  143. IF ERRORLEVEL 64 GOTO FEHLER16
  144. IF ERRORLEVEL == 63 GOTO ENDE
  145. IF ERRORLEVEL == 62 GOTO KA40
  146. IF ERRORLEVEL == 61 GOTO KA30
  147. IF ERRORLEVEL == 60 GOTO KA10
  148. IF ERRORLEVEL == 59 GOTO KA20
  149. :FEHLER16
  150. cls
  151. echo Wrong answer! PLease use only one of the function keys F1 to F3
  152. echo .
  153. pause
  154. GOTO MENUE12
  155. :KA10
  156. CLS
  157. ECHO You have selected the IBM-24 printer!
  158. ECHO Is that correct?         Press  J/N
  159. A:GETKEY 1 5 INPUT:
  160. IF ERRORLEVEL == 110 GOTO MENUE12
  161. IF ERRORLEVEL == 106 GOTO COP17
  162. IF ERRORLEVEL == 79 GOTO FEHLER17
  163. IF ERRORLEVEL == 78 GOTO MENUE12
  164. IF ERRORLEVEL == 77 GOTO FEHLER17
  165. IF ERRORLEVEL == 76 GOTO FEHLER17
  166. IF ERRORLEVEL == 75 GOTO FEHLER17
  167. IF ERRORLEVEL == 74 GOTO COP17
  168. :FEHLER17
  169. cls
  170. echo Please use only J or N to confirm
  171. echo .
  172. pause
  173. GOTO KA10
  174. :KA20
  175. CLS
  176. ECHO You have selected the IBM printer 8!
  177. ECHO Is that correct?        Press  J/N
  178. A:GETKEY 1 5 INPUT:
  179. IF ERRORLEVEL == 110 GOTO MENUE12
  180. IF ERRORLEVEL == 106 GOTO COP16
  181. IF ERRORLEVEL == 79 GOTO FEHLER18
  182. IF ERRORLEVEL == 78 GOTO MENUE12
  183. IF ERRORLEVEL == 77 GOTO FEHLER18
  184. IF ERRORLEVEL == 76 GOTO FEHLER18
  185. IF ERRORLEVEL == 75 GOTO FEHLER18
  186. IF ERRORLEVEL == 74 GOTO COP16
  187. :FEHLER18
  188. cls
  189. echo Please use only J or N to confirm
  190. echo .
  191. pause
  192. GOTO KA20
  193. :KA30
  194. CLS
  195. ECHO You have selected the EPSON printer!
  196. ECHO Is that correct?        Press  J/N
  197. A:GETKEY 1 5 INPUT:
  198. IF ERRORLEVEL == 110 GOTO MENUE12
  199. IF ERRORLEVEL == 106 GOTO COP18
  200. IF ERRORLEVEL == 79 GOTO FEHLER19
  201. IF ERRORLEVEL == 78 GOTO MENUE12
  202. IF ERRORLEVEL == 77 GOTO FEHLER19
  203. IF ERRORLEVEL == 76 GOTO FEHLER19
  204. IF ERRORLEVEL == 75 GOTO FEHLER19
  205. IF ERRORLEVEL == 74 GOTO COP18
  206. :FEHLER19
  207. cls
  208. echo Please use only J or N to confirm
  209. echo .
  210. pause
  211. GOTO KA30
  212. :KA40
  213. CLS
  214. ECHO You have selected the NEC-P6 printer!
  215. ECHO Is that correct?        Press  J/N
  216. A:GETKEY 1 5 INPUT:
  217. IF ERRORLEVEL == 110 GOTO MENUE12
  218. IF ERRORLEVEL == 106 GOTO COP19
  219. IF ERRORLEVEL == 79 GOTO FEHLER20
  220. IF ERRORLEVEL == 78 GOTO MENUE12
  221. IF ERRORLEVEL == 77 GOTO FEHLER20
  222. IF ERRORLEVEL == 76 GOTO FEHLER20
  223. IF ERRORLEVEL == 75 GOTO FEHLER20
  224. IF ERRORLEVEL == 74 GOTO COP19
  225. :FEHLER20
  226. cls
  227. echo Please use only J or N to confirm
  228. echo .
  229. pause
  230. GOTO ka40
  231. :COP16
  232. set e=IBM1
  233. goto weiter
  234. :COP17
  235. set e=IBM2
  236. goto weiter
  237. :COP18
  238. set e=EPS1
  239. goto weiter
  240. :COP19
  241. set e=NEC
  242. :weiter
  243. cls
  244. echo off
  245. del MEGACAD.INI
  246. echo PRT:%a%\PRT\*.prt       /* Search path for .PRT files         */ >> MEGACAD.INI
  247. echo MAC:%a%\MAC\*.mac       /* Search path for .MAC files         */ >> MEGACAD.INI
  248. echo CDL:%a%\*.cdl           /* Search path for .CDL files         */ >> MEGACAD.INI
  249. echo FNT:%a%\TFONT*.fnt      /* PATH TEXT FONTS                   */ >> MEGACAD.INI
  250. echo MAS:%a%\TFONT*.fnt      /* PATH MASS FONTS                   */ >> MEGACAD.INI
  251. echo TMP:%a%\*.TMP           /* Path for intermediate files          */ >> MEGACAD.INI
  252. echo SPE:8                   /* Mouse speed ( 1 - 10 )    */ >> MEGACAD.INI
  253. echo MOV:10                  /* Number MOVEABLE ELEMENTS        */ >> MEGACAD.INI
  254. echo CAL:1                   /* CALCULATOR 1 = on / offs = 0 */ >> MEGACAD.INI
  255. echo DEG:360                 /* 'DEGREE PER COMPLETE CIRCLE               */ >> MEGACAD.INI
  256. if not "%d%"=="HG" goto cop7gg
  257. echo MOD:MODE : 0 HGC        /*  GRAPHIC MODES                      */ >> MEGACAD.INI
  258. echo BIO:0010 0000 0000 0000 /*  BIOS CALL EGA/HGC               */ >> MEGACAD.INI
  259. echo DIM:639 349 16 25 80    /*  CARD PARAMETER                  */ >> MEGACAD.INI
  260. goto cop7g
  261. :cop7gg
  262. echo MOD:MODE : 0 EGA        /*  GRAPHIC MODE                      */ >> MEGACAD.INI
  263. echo BIO:0010 0000 0000 0000 /*  BIOS CALL EGA/HGC               */ >> MEGACAD.INI
  264. echo DIM:639 349 16 25 80    /*  CARD PARAMETER                  */ >> MEGACAD.INI
  265. :cop7g
  266. echo RET:10.8*8.1            /*  SCREEN DISPLAY CORRECTION      */ >> MEGACAD.INI
  267. if not "%e%"=="IBM1" goto cop7gh1
  268. echo PLD:IBMG60              /* Printer name                       */ >> MEGACAD.INI
  269. goto cop6c
  270. :cop7gh1
  271. if not "%e%"=="IBM2" goto cop7gh2
  272. echo PLD:IBMG240             /* Printer name                       */ >> MEGACAD.INI
  273. goto cop6c
  274. :cop7gh2
  275. if not "%e%"=="EPS1" goto cop7gh3
  276. echo PLD:EPSFX8H             /* Printer name                       */ >> MEGACAD.INI
  277. goto cop6c
  278. :cop7gh3
  279. echo PLD:NECP6H              /* Printer name                       */ >> MEGACAD.INI
  280. cls
  281. :cop6c
  282. ECHO Please insert Shareware Disc 2 in drive A: now.
  283. ECHO After changing disc continue with any key
  284. echo .
  285. pause
  286. a:
  287. IF EXIST CONFIG.PRT GOTO cop6d
  288. cls
  289. echo That is not the Shareware Disc 2 from MegaCAD !
  290. echo .
  291. goto cop6c
  292. :cop6d
  293. %b%
  294. echo on
  295. :cop8
  296. echo on
  297. COPY A:EG_*.MCM
  298. COPY A:*.TXT
  299. COPY A:*.FNT
  300. COPY A:*.DTA
  301. COPY A:*.MAS
  302. COPY A:FTASTEN.INI
  303. COPY A:W_FILES.DAT
  304. COPY A:CONFIG.PRT
  305. echo off
  306. :cop6f
  307. cls
  308. ECHO Please insert Shareware Disc 3 in drive A: now.
  309. ECHO After changing disc continue with any key
  310. echo .
  311. pause
  312. a:
  313. IF EXIST mega.exe GOTO cop6g
  314. cls
  315. echo That is not the Shareware Disk 3 from MegaCAD !
  316. echo .
  317. goto cop6f
  318. :cop6g
  319. %b%
  320. :cop9
  321. echo on
  322. COPY A:MEGA.EXE
  323. echo off
  324. cls
  325. type A:ENDE.DAT
  326. :ende
  327. set A=
  328. set B=
  329. set C=
  330. set D=
  331. set E=
  332. echo on
  333.  
  334.